﻿Imports System.Net.Mail

Public Class frmRegister

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim msg As New MailMessage
        With msg
            .From = New MailAddress(txtEmail.Text, txtName.Text)
            .To.Add(New MailAddress("cwilson@wileng.com", "Chris Wilson"))
            .Subject = "Register WRDB User"
            .Body = String.Format("{0}\t{1}\t{2}\t{3}\t{4}\t{5}", txtName.Text, txtOrganization.Text, txtLocation.Text, txtEmail.Text, txtComments.Text, chkMailList.Checked)
        End With
        With New SmtpClient
            .Host = ""
        End With
        SaveSetting(REGAPP, "General", "IsRegistered", True)
        Me.Close()
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        SaveSetting(REGAPP, "General", "IsRegistered", True)
        Me.Close()
    End Sub

    Private Sub btnLater_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLater.Click
        SaveSetting(REGAPP, "General", "IsRegistered", False)
    End Sub
End Class
